﻿#Region ">> Imports <<"
Imports DTO
Imports DAL
#End Region
#Region ">> Classes <<"
Public Class BLLUsuarios
#Region ">> Instancias <<"
    Dim dal As New DALUsuarios
#End Region
#Region ">> Sub        <<"
    Public Sub GuardaUsuarios(ByVal usuario As DTOUsuarios)
        dal.InsertUsuarios(usuario)
    End Sub
    Public Sub AtualizarUsuarios(ByVal usuario As DTOUsuarios)
        dal.UpdateUsuarios(usuario)
    End Sub
    Public Sub ExcluirUsuarios(ByVal usuario As DTOUsuarios)
        dal.DeleteUsuarios(usuario)
    End Sub
#End Region
#Region ">> Funções    <<"
    Public Function TabelaUsuarios() As DataTable
        Return dal.GetTabelaUsuarios
    End Function
#End Region

End Class

Public Class BLLGrupoDeUsuarios

End Class
Public Class BLLLoginUsuarios
#Region ">> Instancias <<"
    Dim dal As New DALLoginUsuarios
#End Region
    Public Function EntrarUsuario(ByVal usuario As DTOLoginUsuarios) As Boolean
        Return dal.LogarUsuario(usuario)
    End Function
End Class
#End Region

